www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminchannel_qiye\D_inc_lanmu_type.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>


<!--#include file=../../inc/ND_moban_page_type.asp-->

<%

a1="Article"
a2="down"
a3="pic_or_sp"
a4="cp"
a5="dan_Article"
a6="wdan_Article"
a7="info_feedback"
a8="other"
a9="guestbook"
a10="job"
a11="buy"
a12="askprod"

b1="文章中心"
b2="下载"
b3="图片,音乐,视频,动画"
b4="产品与商城"
b5="列表式单篇文章"
b6="无列表式单篇文章"
b7="信息反馈"
b8="外部连接"
b9="留言本或讨论页"
b10="人才招聘"
b11="填写式在线订购"
b12="填写式产品询价"

use_http_url=0
use_http_post=0
	
	

	
	




sub cc(aaa)

if aaa=a1 then response.write b1

if aaa=a2 then response.write b2
if aaa=a3 then response.write b3
if aaa=a4 then response.write b4

if aaa=a5 then response.write b5
if aaa=a6 then response.write b6
if aaa=a7 then response.write b7
if aaa=a8 then response.write b8
if aaa=a9 then response.write b9
if aaa=a10 then response.write b10
if aaa=a11 then response.write b11
if aaa=a12 then response.write b12

end sub




Public Function SaveXMLDocument_newindex(ByVal strXMLFile,ByVal strXMLDom)
		

call SaveXMLDocument_newindexc(strXMLFile,strXMLDom,1)


End Function
	











sub aa()%>


<%
biao="[ND_channel]"


set rs44s=server.CreateObject("adodb.recordset")
rs44s.open "select top 1 * from "&biao&" order by id desc",conn,1,1

if rs44s.eof then

idstr=""
else

idstr=cstr(rs44s("id")+1)

end if

%>

<select size="1" name="classt" onchange="update_filenamestr();">
<option value="no">请选择频道类型</option>



<option value="Article">文章中心</option>
<option value="down">下载</option>
<option value="pic_or_sp">图片,音乐,视频,动画</option>
<option value="cp">产品与商城</option>
<option value="dan_Article">列表式单篇文章</option>
<option value="wdan_Article">无列表式单篇文章</option>


<option value="info_feedback">信息反馈</option>

<option value="guestbook">留言本或讨论页</option>
<option value="job">人才招聘</option>
<option value="buy">填写式在线订购</option>
<option value="askprod">填写式产品询价</option>



<option value="other">外部连接</option>
</select>


<input type="hidden" value="<%=idstr%>" name="idset" id="idset" />







<%

	
	
	
	
	
	
	
	

set rs112=server.CreateObject("adodb.recordset")
       
rs112.open "select * from ND_templates_folder_reg_qiye where is_default_template=true",conn,1,1


if rs112.eof then 



%>





<script language=javascript>

alert("请先在 模板管理里 选择默认模版,再添加频道");

//AJAXfade(1,'l_list')


</script>
<br /><br />
请先在 模板管理里 选择默认模版
<%
AJAXcloseLoader()
%>
<%
response.end

else


ppath="templates/"&rs112("templates_folder_path_name")&"/"
scrt_ff="../../"&ppath&iscrtfile


set fileaw=new Cls_FSO
set filebw=new DosAsp 



if fileaw.ReportFileStatus(server.mappath(scrt_ff))=-1 then


'模板目录下不存在"&iscrtfile&"安装脚本文件

sconts=loadfile("../../inc/"&w_web_config_template)
call SaveXMLDocument_newindex(scrt_ff,sconts)

scrt_ff="../../"&ppath&w_files_config

sconts=loadfile("../../inc/"&w_files_config_template)

call SaveXMLDocument(scrt_ff,sconts)

else



'模板目录下存在"&iscrtfile&"安装脚本文件
xm_d_c=ReadXMLDocument(scrt_ff,"all_web_file_name_and_type_config")
scrt_fff="../../"&ppath&xm_d_c
if fileaw.ReportFileStatus(server.mappath(scrt_fff))=-1 then
scrt_ff="../../"&ppath&xm_d_c
sconts=loadfile("../../inc/"&w_files_config_template)
call SaveXMLDocument(scrt_ff,sconts)
end if



end if






ppath="templates/"&rs112("templates_folder_path_name")&"/"
scrt_ff="../../"&ppath&iscrtfile


xm_d_c=ReadXMLDocument(scrt_ff,"all_web_file_name_and_type_config")
scrt_ff="../../"&ppath&xm_d_c
set aasc=ReadXMLDocument_nodes(scrt_ff,"files/file_reg")

%>
<script language="javascript">
var arra=new Array();
for(var ii=0;ii<=2000;ii++){
arra[ii]=new Array();
arra[ii][0]="";
arra[ii][1]="";
arra[ii][2]="";
}
var lena=0;


<%

for aiaa=0 to aasc.length-1
aassaa=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filetype").text))
bbssbb=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filename").text))
ccsscc=trim(rep_xml_br(aasc(aiaa).selectSingleNode("to_html_filename").text))
%>
arra[lena][0]="<%=aassaa%>";
arra[lena][1]="<%=bbssbb%>";
arra[lena][2]="<%=ccsscc%>";
lena=lena+1;
<%


next




%>



function update_filenamestr(){

var tx1=document.getElementById("classt").value;
var tx2=document.getElementById("urlbff");
var tx3=document.getElementById("urlb");
tx2.value="";
var seted=0;
var iisssy="?id="+tx1+"_id<%=idstr%>";
for (var ti=0;ti<=lena-1;ti++)
{

if (arra[ti][0]=="<%=trim(split(xpx_aim1,",")(0))%>"&&tx1=="<%=a1%>")
{seted=1;tx2.value=arra[ti][1]+iisssy;tx3.value="$page$"+arra[ti][0]};
if (arra[ti][0]=="<%=trim(split(xpx_aim2,",")(0))%>"&&tx1=="<%=a2%>")
{seted=1;tx2.value=arra[ti][1]+iisssy;tx3.value="$page$"+arra[ti][0]};
if (arra[ti][0]=="<%=trim(split(xpx_aim3,",")(0))%>"&&tx1=="<%=a3%>")
{seted=1;tx2.value=arra[ti][1]+iisssy;tx3.value="$page$"+arra[ti][0]};
if (arra[ti][0]=="<%=trim(split(xpx_aim4,",")(0))%>"&&tx1=="<%=a4%>")
{seted=1;tx2.value=arra[ti][1]+iisssy;tx3.value="$page$"+arra[ti][0]};
if (arra[ti][0]=="<%=trim(split(xpx_aim5,",")(0))%>"&&tx1=="<%=a5%>")
{seted=1;tx2.value=arra[ti][1]+iisssy;tx3.value="$page$"+arra[ti][0]};
if (arra[ti][0]=="<%=trim(split(xpx_aim6,",")(0))%>"&&tx1=="<%=a6%>")
{seted=1;tx2.value=arra[ti][1]+iisssy;tx3.value="$page$"+arra[ti][0]};
if (arra[ti][0]=="<%=trim(split(xpx_aim7,",")(0))%>"&&tx1=="<%=a7%>")
{seted=1;tx2.value=arra[ti][1]+iisssy;tx3.value="$page$"+arra[ti][0]};


if (arra[ti][0]=="<%=trim(split(xpx_aim8,",")(0))%>"&&tx1=="<%=a9%>")
{seted=1;tx2.value=arra[ti][1]+iisssy;tx3.value="$page$"+arra[ti][0]};



if (arra[ti][0]=="<%=trim(split(xpx_aim13,",")(0))%>"&&tx1=="<%=a10%>")
{seted=1;tx2.value=arra[ti][1];tx3.value="$page$"+arra[ti][0]};



if (arra[ti][0]=="<%=trim(split(xpx_aim15,",")(0))%>"&&tx1=="<%=a11%>")
{seted=1;tx2.value=arra[ti][1]+iisssy;tx3.value="$page$"+arra[ti][0]};

if (arra[ti][0]=="<%=trim(split(xpx_aim16,",")(0))%>"&&tx1=="<%=a12%>")
{seted=1;tx2.value=arra[ti][1]+iisssy;tx3.value="$page$"+arra[ti][0]};



}

if(seted==1)
{tx2.disabled="disabled";}
else
{tx2.disabled="";}


if (tx1=="<%=a8%>"){tx3.value="$cstpage$";}


}
</script>
<%


end if








end sub%>


<%sub bb()




	
	
	
	

set rs112=server.CreateObject("adodb.recordset")
       
rs112.open "select * from ND_templates_folder_reg_qiye where is_default_template=true",conn,1,1


if rs112.eof then 



%>





<script language=javascript>

alert("请先在 模板管理里 选择默认模版,再添加频道");

//AJAXfade(1,'l_list')


</script>
<br /><br />
请先在 模板管理里 选择默认模版
<%
AJAXcloseLoader()
%>
<%
response.end

else


ppath="templates/"&rs112("templates_folder_path_name")&"/"
scrt_ff="../../"&ppath&iscrtfile


use_http_url=0
use_http_post=0

set fileaw=new Cls_FSO
set filebw=new DosAsp 



if fileaw.ReportFileStatus(server.mappath(scrt_ff))=-1 then


'模板目录下不存在"&iscrtfile&"安装脚本文件

sconts=loadfile("../../inc/"&w_web_config_template)
call SaveXMLDocument_newindex(scrt_ff,sconts)

scrt_ff="../../"&ppath&w_files_config

sconts=loadfile("../../inc/"&w_files_config_template)

call SaveXMLDocument(scrt_ff,sconts)

else



'模板目录下存在"&iscrtfile&"安装脚本文件
xm_d_c=ReadXMLDocument(scrt_ff,"all_web_file_name_and_type_config")
scrt_fff="../../"&ppath&xm_d_c
if fileaw.ReportFileStatus(server.mappath(scrt_fff))=-1 then
scrt_ff="../../"&ppath&xm_d_c
sconts=loadfile("../../inc/"&w_files_config_template)
call SaveXMLDocument(scrt_ff,sconts)
end if



end if






ppath="templates/"&rs112("templates_folder_path_name")&"/"
scrt_ff="../../"&ppath&iscrtfile


xm_d_c=ReadXMLDocument(scrt_ff,"all_web_file_name_and_type_config")
scrt_ff="../../"&ppath&xm_d_c
set aasc=ReadXMLDocument_nodes(scrt_ff,"files/file_reg")

%>
<script language="javascript">
var arra=new Array();
for(var ii=0;ii<=2000;ii++){
arra[ii]=new Array();
arra[ii][0]="";
arra[ii][1]="";
arra[ii][2]="";
}
var lena=0;


<%

for aiaa=0 to aasc.length-1
aassaa=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filetype").text))
bbssbb=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filename").text))
ccsscc=trim(rep_xml_br(aasc(aiaa).selectSingleNode("to_html_filename").text))
%>
arra[lena][0]="<%=aassaa%>";
arra[lena][1]="<%=bbssbb%>";
arra[lena][2]="<%=ccsscc%>";
lena=lena+1;
<%


next





%>

function doo(){
tx2.value="";
var seted=0;
for(var ti=0;ti<=lena-1;ti++){
if ("$page$"+arra[ti][0]=="<%=trim(rs22("channel_file_url"))%>")
{
seted=1;
tx2.value=arra[ti][1]+"?id="+"<%=trim(rs22("sys_content_type_name"))%>";
tx3.value="$page$"+arra[ti][0];
}

}

if(seted==0){

if ("<%=trim(rs22("channel_file_url"))%>".substring(0,6)=="$page$")
{
alert("频道内部链接配置文件丢失或存在错误,无法载入 频道内部链接");
tx3.value="<%=trim(rs22("channel_file_url"))%>";
tx2.disabled="disabled";
tx2.value="无法载入 频道内部链接";
}
else
{
if ("<%=trim(rs22("channel_file_url"))%>".substring(0,9)!="$cstpage$")
{
alert("频道内部链接配置文件丢失或存在错误,无法载入 频道内部链接");
tx3.value="$page$"+"<%=rs22("lanmu_type")%>";
tx2.value="无法载入 频道内部链接";
tx2.disabled="disabled";

}
else
{

var ttyyyy="<%=trim(rs22("channel_file_url"))%>".substring(9,"<%=trim(rs22("channel_file_url"))%>".length)
tx2.value=ttyyyy;
tx3.value="$cstpage$";
tx2.disabled="";
}

}

}
else
{

tx2.disabled="disabled";
}


}
</script>
<select size="1" name="classt" disabled="disabled">
<option value="no">请选择频道类型</option>



<option value="Article" <%if rs22("lanmu_type")="Article" then response.write "selected"%>>文章</option>
<option value="down" <%if rs22("lanmu_type")="down" then response.write "selected"%>>下载</option>
<option value="pic_or_sp" <%if rs22("lanmu_type")="pic_or_sp" then response.write "selected"%>>图片,音乐,视频,动画</option>
<option value="cp" <%if rs22("lanmu_type")="cp" then response.write "selected"%>>产品与商城</option>
<option value="dan_Article" <%if rs22("lanmu_type")="dan_Article" then response.write "selected"%>>列表式单篇文章</option>
<option value="wdan_Article" <%if rs22("lanmu_type")="wdan_Article" then response.write "selected"%>>无列表式单篇文章</option>

<option value="info_feedback" <%if rs22("lanmu_type")="info_feedback" then response.write "selected"%>>信息反馈</option>

<option value="guestbook" <%if rs22("lanmu_type")="guestbook" then response.write "selected"%>>留言本或讨论页</option>

<option value="job" <%if rs22("lanmu_type")="job" then response.write "selected"%>>人才招聘</option>

<option value="buy" <%if rs22("lanmu_type")="buy" then response.write "selected"%>>填写式在线订购</option>
<option value="askprod" <%if rs22("lanmu_type")="askprod" then response.write "selected"%>>填写式产品询价</option>



<option value="other" <%if rs22("lanmu_type")="other" then response.write "selected"%>>外部连接</option>


</select>



<%

end if
end sub%>